1 REM QUICKSILVA TEST
3 REM BY SAVSNAP
2 REM 
10 LET G=10240
20 LET L=USR G
30 REM BL CL
40 LET A=0
50 LET B=255
60 LET C=191
70 LET L=USR G
80 REM MO A A DR B C
90 LET L=USR G
100 REM MO B A DR A C
110 LET L=USR G
120 REM MO A A
130 LET L=USR G
140 REM BO B C
145 LET A=72
148 LET B=40
150 LET L=USR G
160 REM WH MO A B
170 LET A$="QUICKSILVA  HRG"
180 LET L=USR G
190 REM PR A$ BL
200 FOR Z=0 TO PI/2 STEP .022
205 LET X=(Z*256)/PI/2
208 LET Y=(SIN Z*86)+86
210 LET L=USR G
220 REM PL X Y
230 NEXT Z
235 LET C=191
240 FOR Z=PI/2 TO PI STEP .022
250 LET X=(Z*256)/PI/2
260 LET Y=(SIN Z*86)+86
270 LET L=USR G
280 REM MO X C DR X Y
290 NEXT Z
300 LET A=191
310 LET B=255
320 FOR Z=0 TO 25
325 LET A=A-2
330 LET B=B-2
340 LET L=USR G
350 REM MO X Y BO B A
360 LET Y=Y+2
370 LET X=X+2
380 NEXT Z
